*Black, Owens, Wedeking & Wohlfarth
*Chapter 9 Replication


use "Ch-9_Data.dta"

*Table 9.1

*Model 1
regress cogComplex01 consciPI openPI extraPI agreePI neuroPI, robust

*Model 2
regress cogComplex01 consciPI openPI extraPI agreePI neuroPI ctappDQR distCtApp feduncon stateuncon precedentAlteration amicusTotal coalitionSD majVotes lcDisagreement medianDist pissueAll infrequentStatute term i.issueArea, robust 

*Model 3
nbreg numHeadnotes consciPI openPI extraPI agreePI neuroPI, robust  

*Model 4
nbreg numHeadnotes consciPI openPI extraPI agreePI neuroPI ctappDQR distCtApp feduncon stateuncon precedentAlteration amicusTotal coalitionSD majVotes lcDisagreement medianDist pissueAll infrequentStatute term i.issueArea, robust  

*Model 5
nbreg wc consciPI openPI extraPI agreePI neuroPI, robust

*Model 6
nbreg wc consciPI openPI extraPI agreePI neuroPI ctappDQR distCtApp feduncon stateuncon precedentAlteration amicusTotal coalitionSD majVotes lcDisagreement medianDist pissueAll infrequentStatute term i.issueArea, robust 

*Model 7
regress readpca consciPI openPI extraPI agreePI neuroPI, robust

*Model 8
regress readpca consciPI openPI extraPI agreePI neuroPI ctappDQR distCtApp feduncon stateuncon precedentAlteration amicusTotal coalitionSD majVotes lcDisagreement medianDist pissueAll infrequentStatute term i.issueArea, robust 

*Figure 9.3
regress cogComplex01 consciPI openPI extraPI agreePI neuroPI ctappDQR distCtApp feduncon stateuncon precedentAlteration amicusTotal coalitionSD majVotes lcDisagreement medianDist pissueAll infrequentStatute term i.issueArea, robust 
quietly margins, at(consciPI=(-3.7(.1)1.2) precedentAlteration=0 lcDisagreement=0 feduncon=0 stateuncon=0 infrequentStatute=0) atmeans
marginsplot, xlabel(-3.7(.5)1.2) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) level(90) xtitle(Majority Opinion Author Conscientiousness) ytitle(Cognitive Complexity of Majority Opinion) title("") scheme(s1mono)

*Figure 9.4
nbreg numHeadnotes consciPI openPI extraPI agreePI neuroPI ctappDQR distCtApp feduncon stateuncon precedentAlteration amicusTotal coalitionSD majVotes lcDisagreement medianDist pissueAll infrequentStatute term i.issueArea, robust  
quietly margins, at(consciPI=(-3.7(.1)1.2) precedentAlteration=0 lcDisagreement=0 feduncon=0 stateuncon=0 infrequentStatute=0) atmeans
marginsplot, xlabel(-3.7(.5)1.2) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) level(90) xtitle(Majority Opinion Author Conscientiousness) ytitle(Legal Breadth of Majority Opinion) title("") scheme(s1mono)

*Figure 9.5
nbreg wc consciPI openPI extraPI agreePI neuroPI ctappDQR distCtApp feduncon stateuncon precedentAlteration amicusTotal coalitionSD majVotes lcDisagreement medianDist pissueAll infrequentStatute term i.issueArea, robust 
quietly margins, at(consciPI=(-3.7(.1)1.2) precedentAlteration=0 lcDisagreement=0 feduncon=0 stateuncon=0 infrequentStatute=0) atmeans
marginsplot, xlabel(-3.7(.5)1.2) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) level(90) xtitle(Majority Opinion Author Conscientiousness) ytitle(Predicted Word Count of Majority Opinion) title("") scheme(s1mono)

*Figure 9.6
regress readpca consciPI openPI extraPI agreePI neuroPI ctappDQR distCtApp feduncon stateuncon precedentAlteration amicusTotal coalitionSD majVotes lcDisagreement medianDist pissueAll infrequentStatute term i.issueArea, robust 
quietly margins, at(consciPI=(-3.7(.1)1.2) precedentAlteration=0 lcDisagreement=0 feduncon=0 stateuncon=0 infrequentStatute=0) atmeans
marginsplot, xlabel(-3.7(.5)1.2) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) level(90) xtitle(Majority Opinion Author Conscientiousness) ytitle(Rhetorical Clarity of Majority Opinion) title("") scheme(s1mono)

